10 PRINT"[147]":X=5:Y=5:MX=10:TL=50:TH=50:MY=1:GOSUB26
11 END
12 REM
13 REM X$  = EINGABESTRING
14 REM
15 REM X,Y = POSITION
16 REM
17 REM MX  = EINGABELAENGE
18 REM
19 REM TL  = TONLAENGE
20 REM
21 REM TH  = TONHOEHE
22 REM
23 REM MY  = 0 BUCHSTABEN + ZAHLEN
24 REM       1 NUR ZAHLEN
25 REM
26 X$="":GOSUB35:PRINT"[158][164]"
27 GETA$:ON-(A$="")GOTO27:GOSUB33:IFA$=CHR$(13)THENRETURN
28 IFA$=CHR$(20)ANDLEN(X$)>1THENX$=LEFT$(X$,LEN(X$)-1):GOTO27
29 IFASC(A$)>47ANDASC(A$)<58THENX$=X$+A$:GOTO32
30 IFMY<>1ANDASC(A$)>64ANDASC(A$)<95THENX$=X$+A$:GOTO32
31 A$="":GOTO27
32 GOSUB35:PRINT""X$"[158][164] ":IFLEN(X$)<MXTHEN27
33 SI=54272:POKESI+24,15:POKESI+6,240:POKESI+4,33:POKESI+23,4:POKE33,TH
34 POKESI+1,TH:FORQ=1TOTL:NEXT:POKESI+24,0:RETURN
35 POKE211,X:POKE214,Y:SYS58732:RETURN